home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ IIS Web Printing 1.xpl < prev    next >
Text File  |  2002-12-05  |  2KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Information Server\System"
  5. "NAME"="Web Printing"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable Web Printing feature"
  9. "DESCRIPTION 1"="The Internet Information Server (IIS) is normally configured with a pre-install vpath /printers that allow Internet Printing."
  10. "DESCRIPTION 2"="If your IIS is connected to the internet, and you do not want to have this functionality simply turn off the Internet Printing.
  11. "DESCRIPTION 3"="Note #1: You need to stop and restart the IIS so this change can take effect."
  12. "DESCRIPTION 4"="Note #2: This setting has no effect on computers where no IIS is installed."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="see http://support.microsoft.com/default.aspx?scid=KB;en-us;q296576 "
  17.  
  18.  
  19. sPC="HKLM\SOFTWARE\Policies\Microsoft\Windows NT\Printers\DisableWebPrinting"
  20.  
  21. 'Called when the Plugin is started
  22. Sub Plugin_Initialize
  23.  i=RegReadValue(sPC)
  24.  if i=0 or IsEmpty(i) then SetUIElement 1,true
  25. End Sub
  26.  
  27. 'Called when the Plugin should validate the Data the user has entered
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. 'Called when the Plugin should apply the changes
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  b=GetUIElement(1)
  34.  if b=true then
  35.     if RegValueExists(sPC) then 
  36.        Call RegDeleteValue(sPC)
  37.     end if
  38.  else
  39.     Call RegWriteValue(sPC,1,2)
  40.  end if
  41.  
  42. End Sub
  43.  
  44. 'Called when the Plugin is about to be removed from memory
  45. Sub Plugin_Terminate
  46. End Sub
  47.